home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 January / 1991-01.d64 / list formatter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  964b  |  31 lines
  1. 100 rem copyright 1991 - compute publications intl ltd - all rights reserved
  2. 101 poke53280,14:poke53281,6
  3. 105 ifpeek(40960)<>148andpeek(45056)<>191then110
  4. 106 print"[147][154]setting up c64 mode...":s=828:goto120
  5. 110 s=2816:rem relocatable program
  6. 111 print"[147][154]setting up c128 mode..."
  7. 120 print"list formatter "
  8. 130 rem list formatter machine language
  9. 140 data 173,7,3,201,81,144,6,169
  10. 150 data 203,162,21,208,4,169,81,162
  11. 160 data 81,141,6,3,142,7,3,96
  12. 170 data 8,201,58,208,26,36,17,48
  13. 180 data 22,169,13,32,12,86,162,0
  14. 190 data 189,0,1,240,8,169,32,32
  15. 200 data 12,86,232,208,243,169,58,201
  16. 210 data 143,208,2,133,243,40,234,76
  17. 230 rem poke ml starting at addr = s
  18. 231 for d=s to s+63:read y:poke d,y:t=t+y:next:remarks are highlighted
  19. 290 l=peek(774):poked,l:pokes+14,l
  20. 300 h=peek(775):poked+1,h:pokes+16,h
  21. 310 m=s+24:l%=m/256
  22. 320 pokes+10,l%:pokes+8,m-256*l%
  23. 325 ifpeek(40960)=148andpeek(45056)=191thengosub370
  24. 330 print:print"on/off: sys"s
  25. 335 sys(s):print:print"engaged":print:list231
  26. 350 end
  27. 360 rem patch c128 code for c64
  28. 370 poke828+4,167:pokes+36,71:pokes+37,171:pokes+48,71:pokes+49,171
  29. 380 pokes+60,199:pokes+30,15
  30. 390 return
  31.